Top 200 Programs/Top 200 Programs.iso/Bob8/oakley/wrdw9511/product/WORDWRES.EXE/0/RCDATA/TMYORDER/TMYORDER.txt

Text File | 1996-03-05 | 13KB | 708 lines

object MyOrder: TMyOrder
  Left = 238
  Top = 109
  BorderStyle = bsDialog
  Caption = 'Order Entry'
  ClientHeight = 445
  ClientWidth = 632
  Font.Color = clBlack
  Font.Height = -15
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnShow = FormShow
  TextHeight = 17
  object Bevel2: TBevel
    Left = 4
    Top = 180
    Width = 269
    Height = 173
    Shape = bsFrame
    Style = bsRaised
  end
  object Bevel1: TBevel
    Left = 4
    Top = 4
    Width = 517
    Height = 173
    Shape = bsFrame
    Style = bsRaised
  end
  object Label1: TLabel
    Left = 12
    Top = 12
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Name'
  end
  object Label2: TLabel
    Left = 12
    Top = 40
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Company'
  end
  object Label3: TLabel
    Left = 408
    Top = 152
    Width = 29
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Fax'
  end
  object Label4: TLabel
    Left = 12
    Top = 152
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Work Phone'
  end
  object Label5: TLabel
    Left = 12
    Top = 124
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Province'
  end
  object Label6: TLabel
    Left = 12
    Top = 96
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'City'
  end
  object Label7: TLabel
    Left = 12
    Top = 68
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Address'
  end
  object Visa: TImage
    Left = 528
    Top = 4
    Width = 97
    Height = 60
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object MasterCard: TImage
    Left = 528
    Top = 72
    Width = 97
    Height = 60
    Picture.Data = {<image001.bmp>}
    Stretch = True
  end
  object Amex: TImage
    Left = 528
    Top = 140
    Width = 97
    Height = 60
    Picture.Data = {<image002.bmp>}
    Stretch = True
  end
  object Discover: TImage
    Left = 528
    Top = 208
    Width = 97
    Height = 60
    Picture.Data = {<image003.bmp>}
    Stretch = True
  end
  object Label8: TLabel
    Left = 248
    Top = 96
    Width = 45
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'State'
  end
  object Label9: TLabel
    Left = 264
    Top = 124
    Width = 69
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Country'
  end
  object Label10: TLabel
    Left = 204
    Top = 152
    Width = 89
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Home Phone'
  end
  object Zip: TLabel
    Left = 360
    Top = 96
    Width = 37
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Zip'
  end
  object Label11: TLabel
    Left = 8
    Top = 188
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Quantity'
  end
  object Label12: TLabel
    Left = 8
    Top = 216
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Currency'
  end
  object Label13: TLabel
    Left = 8
    Top = 244
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Shipping'
  end
  object Label14: TLabel
    Left = 8
    Top = 272
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Payment'
  end
  object CredCardLab: TLabel
    Left = 8
    Top = 300
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Cred Card'
  end
  object ExpLab: TLabel
    Left = 8
    Top = 328
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Exp Date'
  end
  object Bevel3: TBevel
    Left = 276
    Top = 180
    Width = 245
    Height = 173
    Shape = bsFrame
    Style = bsRaised
  end
  object Label16: TLabel
    Left = 284
    Top = 184
    Width = 101
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'Source'
  end
  object Label18: TLabel
    Left = 400
    Top = 184
    Width = 113
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'Name of Source'
  end
  object Label19: TLabel
    Left = 284
    Top = 236
    Width = 221
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'Comments'
  end
  object Panel1: TPanel
    Left = 4
    Top = 356
    Width = 517
    Height = 85
    Color = clTeal
    TabOrder = 27
    object Label20: TLabel
      Left = 4
      Top = 4
      Width = 65
      Height = 16
      AutoSize = False
      Caption = 'Remit To:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Company1: TLabel
      Left = 72
      Top = 4
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company1'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Company2: TLabel
      Left = 72
      Top = 20
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company2'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Company3: TLabel
      Left = 72
      Top = 36
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company3'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Company4: TLabel
      Left = 72
      Top = 52
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company4'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Company5: TLabel
      Left = 72
      Top = 68
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company5'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Price: TLabel
      Left = 368
      Top = 4
      Width = 49
      Height = 16
      AutoSize = False
      Caption = 'Price:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 368
      Top = 20
      Width = 49
      Height = 16
      AutoSize = False
      Caption = 'S&&H:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 368
      Top = 36
      Width = 41
      Height = 16
      AutoSize = False
      Caption = 'Tax:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 368
      Top = 56
      Width = 49
      Height = 20
      AutoSize = False
      Caption = 'Total:'
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object PriceTotal: TLabel
      Left = 420
      Top = 56
      Width = 89
      Height = 20
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object PriceFirst: TLabel
      Left = 420
      Top = 4
      Width = 93
      Height = 16
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object PriceShipping: TLabel
      Left = 420
      Top = 20
      Width = 93
      Height = 16
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object PriceTax: TLabel
      Left = 420
      Top = 36
      Width = 93
      Height = 16
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object Name: TEdit
    Left = 100
    Top = 8
    Width = 261
    Height = 25
    MaxLength = 60
    TabOrder = 0
  end
  object Company: TEdit
    Left = 100
    Top = 36
    Width = 413
    Height = 25
    MaxLength = 70
    TabOrder = 1
  end
  object Fax: TEdit
    Left = 444
    Top = 148
    Width = 69
    Height = 25
    MaxLength = 20
    TabOrder = 10
  end
  object WorkPhone: TEdit
    Left = 100
    Top = 148
    Width = 101
    Height = 25
    MaxLength = 20
    TabOrder = 8
  end
  object Province: TEdit
    Left = 100
    Top = 120
    Width = 157
    Height = 25
    MaxLength = 30
    TabOrder = 6
  end
  object City: TEdit
    Left = 100
    Top = 92
    Width = 141
    Height = 25
    MaxLength = 30
    TabOrder = 3
  end
  object AddressLine: TEdit
    Left = 100
    Top = 64
    Width = 413
    Height = 25
    MaxLength = 70
    TabOrder = 2
  end
  object HomePhone: TEdit
    Left = 300
    Top = 148
    Width = 101
    Height = 25
    MaxLength = 20
    TabOrder = 9
  end
  object Country: TEdit
    Left = 348
    Top = 120
    Width = 165
    Height = 25
    MaxLength = 40
    TabOrder = 7
  end
  object State: TComboBox
    Left = 300
    Top = 92
    Width = 53
    Height = 25
    Style = csDropDownList
    DropDownCount = 15
    ItemHeight = 17
    TabOrder = 4
    OnChange = StateChange
  end
  object ZipCode: TEdit
    Left = 404
    Top = 92
    Width = 109
    Height = 25
    MaxLength = 12
    TabOrder = 5
  end
  object Quantity: TEdit
    Left = 92
    Top = 184
    Width = 41
    Height = 25
    MaxLength = 4
    TabOrder = 11
    OnExit = QuantityExit
  end
  object Currency: TComboBox
    Left = 92
    Top = 212
    Width = 173
    Height = 25
    Style = csDropDownList
    ItemHeight = 17
    TabOrder = 12
    OnChange = CurrencyChange
  end
  object Shipping: TComboBox
    Left = 92
    Top = 240
    Width = 173
    Height = 25
    Style = csDropDownList
    ItemHeight = 17
    TabOrder = 13
    OnChange = ShippingChange
  end
  object Payment: TComboBox
    Left = 92
    Top = 268
    Width = 173
    Height = 25
    Style = csDropDownList
    ItemHeight = 17
    TabOrder = 14
    OnChange = PaymentChange
  end
  object CredCard1: TEdit
    Left = 92
    Top = 296
    Width = 41
    Height = 25
    MaxLength = 4
    TabOrder = 15
  end
  object CredCard2: TEdit
    Left = 136
    Top = 296
    Width = 41
    Height = 25
    MaxLength = 4
    TabOrder = 16
  end
  object CredCard3: TEdit
    Left = 180
    Top = 296
    Width = 41
    Height = 25
    MaxLength = 4
    TabOrder = 17
  end
  object CredCard4: TEdit
    Left = 224
    Top = 296
    Width = 41
    Height = 25
    MaxLength = 4
    TabOrder = 18
  end
  object ExpDate1: TEdit
    Left = 92
    Top = 324
    Width = 29
    Height = 25
    MaxLength = 2
    TabOrder = 19
  end
  object ExpDate2: TEdit
    Left = 128
    Top = 324
    Width = 29
    Height = 25
    MaxLength = 2
    TabOrder = 20
  end
  object Source: TComboBox
    Left = 280
    Top = 204
    Width = 113
    Height = 24
    Style = csDropDownList
    DropDownCount = 12
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 21
  end
  object NameOfSource: TEdit
    Left = 400
    Top = 204
    Width = 113
    Height = 25
    MaxLength = 60
    TabOrder = 22
  end
  object Comments: TMemo
    Left = 280
    Top = 260
    Width = 233
    Height = 89
    Lines.Strings = (
      'Comments')
    MaxLength = 2000
    TabOrder = 23
  end
  object PrintButton: TButton
    Left = 524
    Top = 276
    Width = 105
    Height = 65
    Caption = '&Print'
    Font.Color = clBlack
    Font.Height = -18
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 24
    OnClick = PrintButtonClick
  end
  object OtherButton: TButton
    Left = 524
    Top = 348
    Width = 105
    Height = 45
    Caption = '&Other Products'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 25
    OnClick = OtherButtonClick
  end
  object ExitButton: TButton
    Left = 523
    Top = 400
    Width = 105
    Height = 37
    Caption = 'E&xit'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 26
    OnClick = ExitButtonClick
  end
  object Win95: TCheckBox
    Left = 144
    Top = 188
    Width = 121
    Height = 17
    Caption = 'Win 95 Version'
    ParentShowHint = False
    ShowHint = False
    TabOrder = 28
  end
  object MyPrintDialog: TPrintDialog
    Left = 432
    Top = 8
  end
end